Pas très consistant pour l'instant !
Exemple :
Sub InsérerLigne()
Dim i%
With ActiveSheet
For i = 1 To 3
If .Cells(2, i) = "" Then
MsgBox "Compléter les données manquantes !", vbCritical, "Saisie incomplète"
Exit Sub
End If
Next i
.Range("A2:C2").Insert xlShiftDown, xlFormatFromRightOrBelow
End With
End Sub
Une fois ta ligne remplie, tu cliques sur le bouton, une ligne est insérée...
Cordialement.