NombreDePeriode = CInt(InputBox("Quel est le nombre de périodes"))
If numero_ligne >= 120 And numero_ligne <= 300 Then
Feuil1.Range("b5") = NombreDePeriode
Else
MsgBox "L'entrée" & Range("B5") & " doit être compris entre 120 et 300 !"
Range("B5").ClearContents
NombreDePeriode = CInt(InputBox("Quel est le nombre de périodes"))
Feuil1.Range("b5") = NombreDePeriode
End If
J'ai réussi en ajoutant une fonction Si mais j'ai un nouveau problème : à la fin de l'execution ça me supprime mes titres du tableau ?