Sub Macro1()
Dim r As Range 'déclare la variable r (Recherche)
Dim ad As String 'déclare la variable ad (ADresse de la première occurrence trouvée)
With Range("A3:A" & Range("A65536").End(xlUp).Row) 'prend en compte la plage éditée de la colonne A (à adapter pour le début)
Set r = .Find("Toto", , xlValues, xlWhole) 'définit la variable r (à adapter pour "Toto")
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence de r
ad = r.Address(0, 0) 'définit la variable ad
Do 'exécute
r.Offset(0, 6).Cut r.Offset(0, 7) 'décale la sixième cellule d'une colonne vers la droite
Set r = .FindNext(r) 'redéfinit la variable r (prochaine occurrence de r)
Loop While Not r Is Nothing And r.Address(0, 0) <> ad 'boucle tant qu'il existe une nouvelle occurrence à une adresse différente de ad
End If 'fin de la condition
End With 'fin de la prise en compte de la plage éditée de la colonne A
End Sub