Sub combinaisons()
Dim ligne As Integer, pontroulant As Integer, vent As Integer, neige As Integer
ligne = 1
For pontroulant = 1 To 4 ' 4 cas
For vent = 0 To 8 ' 8 cas + rien
For neige = 0 To 2 '2 cas +rien
Cells(ligne, 1) = "CP"
Cells(ligne, 2) = "CE"
Cells(ligne, 3) = "PR" & pontroulant
Cells(ligne, 4) = IIf(neige = 0, "", "N" & neige)
Cells(ligne, 5) = IIf(vent = 0, "", "V" & vent)
ligne = ligne + 1
Next
Next
Next
End Sub