Sub add_1_week()
'
'je demande le texte recherché
REP = "Total général"
'je cherche
Set R = Sheets("Balance sheet Korea").Range("B33:B200").Find(REP)
'si VBA n'a pas trouvé
If R Is Nothing Then
MsgBox "la valeur " & REP & " n'a pas été trouvée"
Exit Sub
End If
'si la valeur a été trouvée
If Not R Is Nothing Then
'je montre l'adresse de la cellule
MsgBox R.Address
'j'active la cellule où a été trouvée la valeur
Range(R.Address).Activate
End If
'je déplace ma selection d'une case à droite et deux en haut
ActiveCell.Offset(-2, 1).Range("A1").Select
'je recopie le contenue de la nouvelle case sélectionnées, sur les deux cases en dessous
Selection.AutoFill Destination:=ActiveCell.Range("A1:A3"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A3").Select
ActiveCell.Offset(2, -1).Range("A1").Select
End Sub