Bonjour,
 
J'aimerais chercher sur une ligne un mot clé et couper la colonne pour la coller au début.
 
J'ai pensé à ce code :
 
i = 1
j = 1
If Cells(i, j) = "toto" Then
    Cells(i, j).EntireColumn.Select
    Cells.Cut
    Cells(i, 1).Paste
Else
j = j + 1
End If
 
Mais il ne fonctionne pas. Ayant en horreur les active cells active paste et compagnie, quelle solution ai-je pour garder l'esprit du code ? Ou si vraiment il n'y a pas d'autres solutions que d'utiliser les active.sheet et compagnie, comment puis-je faire svp ?

i = 1
j = 1
Do While Cells(i, j) <> ""
If Cells(i, j) = "toto" Then
    Cells(i, j).EntireColumn.Select
    Selection.Cut
    Cells(i, 1).EntireColumn.Select
    ActiveSheet.Paste
    Cells(i, j).EntireColumn.Delete
Else: j = j + 1
End If
Loop
 
GG