Sub Recopier() ' jamais très bon de nommer une procédure avec un mot clef de VBA ou d'Excel
Dim cel As Range
On Error Resume Next ' si "Total" non trouvé, on continue l'exécution du code
Set cel = Columns(3).find(What:="Total", LookAt:=xlWhole) 'on cherche "Total" dans la colonne C
'si cel existe (donc on a trouvé "Total" dans la colonne C) alors
' on considère la plage des valeurs destination : deux lignes vers le bas, une colonne à droite et de 7 cellules en taille
' et on lui affecte les valeurs de la cellule cel décalée d'une colonne à droite et de taille 7 cellules
If Not cel Is Nothing Then cel.Offset(2, 1).Resize(, 7).Value = cel.Offset(, 1).Resize(, 7).Value
End Sub