Bonjour
Effectivement, il y avait un bug.
La macro de doit pas toucher à la ligne 1.
Quant à la ligne 3, elle s’intéresse à toutes les colonnes qui contiennent une valeur sur cette ligne.
Pour la corriger, il suffit de remplacer le 1 par un 3 :
...
fin:
With Range(Cells(3, 4), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column))
.NumberFormat = "ddd"
.ColumnWidth = 3
End With
End Sub
OK ?
Bye !