Divers astuces Excel

Récupérer la valeur d'une cellule, y faire une opération et renvoyer le résultat dans une autre.
Sub RecupValeur()
Dim Val1 'Dim Resultat As Integer (pour un résultat en entier)
Val1=Sheets("feuil1").[a1].Value
Resultat=Val1*10
Sheets("feuil1").[a2].Value=(Resultat)
MsgBox"Opération effectuée."&Chr(13)&Chr(13)&"Résultat :"&CStr(Resultat)
End Sub

Comment récupérer les valeurs d'une plage, y faire une opération et renvoyer le résultat dans une autre ?
Copie la plage A1:A15, Ajoute 1 et colle dans la plage C1:C15.
Sub CopiUnePlagedeValeur()
Dim MaValeur, compteur
For compteur=1To 15
Range("A"&compteur).Select
MaValeur=ActiveCell.Value
Range("C"&compteur).Select
ActiveCell.Value=MaValeur+1
Next
End Sub

Colore en gris toutes les cellules dont les valeurs sont >30 de la plage E2/E65
Sub StockInf50()
For Each Cell In Range("E2:E65")
If Cell.Value>30 Then
Cell.Select
.With Selection.Interior
.ColorIndex=15
.Pattern=xlSolid
End With
End If
Next
End Sub