Bonjour lolo69490,
Sub Macro1()
'
' Macro1 Macro
'
Dim i As Integer
For i = 1 To 3
If Cells(i, 1) = "" Then
Cells(i, 2) = "-"
Cells(i, 3) = "-"
Cells(i, 4) = "-"
End If
Next i
'
End Sub
Je te l'ai fait de manière à ce que tu puisse tester sur 3 cellules, pour le fun (si la cellule A1 est vide, la B1,C1 et D1 auront - à l'intérieur, si A2 est vide ...)
si tu veux retirer la boucle tu viresla déclaration du i (qui ne sert plus à rien) le For et le Next et tu conserves que les lignes if ..., Cells..., Cells,... remplaces le i par un 1 et c'est bon