With Sheets("feuil1") ' adapter le nom de la feuille
.Activate
Cells(1, Cells("1", Columns.Count).End(xlToLeft).Column + Abs(Cells(1, 1) <> "")).Select
End With
With Sheets("feuil1") ' adapter le nom de la feuille
.Activate
Cells(1, Cells("1", Columns.Count).End(xlToLeft).Column + Abs(Cells(1, 1) <> "")).Select
End With