'---commentaire---
Set c = Cells([D4] + 8, 1)
[A6].Copy c 'pour les formats
c = "Commentaire"
With c(1, 2).Resize(, 3)
.WrapText = True 'renvoi à la ligne
.HorizontalAlignment = xlCenterAcrossSelection 'centre sur 3 colonnes
.BorderAround Weight:=xlThin
End With
c(1, 2) = c(0, 4)
c(0, 4).Clear