Bonjour
Essaie cela :
Sub ajout()
Set ws = Sheets("Feuil1")
dlig = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
i = 2
While i <= dlig
Rows(i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 1, 1) = "Commentaire :"
Rows(i + 2).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 2, 1) = "Nom / Signature :"
Cells(i + 2, 6) = "Date :"
i = i + 3
dlig = dlig + 2
Wend
End Sub
A+