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 ?