Bonjour le forum,
Apparement ma pièce joint n'est pas passée.
Je la met de nouveau.
Sinon je me suis trouvé une réponse pour le numero de colonne (c'est ce qui me bloquait)
Dim col As Integer
Dim cptcol As Integer
For cptcol = 1 To 20
If Cells(1, cptcol) = 'autres' Then
Cells(1, cptcol).Select
col = Selection.Column - 1
End If
Next
Merci