Sub JCharles()
NbFeuil = Sheets.Count
[COLOR="Red"]Comment = InputBox("Veuiller saisir le commentaire :", "Saisie du commentaire")[/COLOR]
For i = 3 To NbFeuil
[COLOR="Green"]Comment = InputBox("Veuiller saisir le commentaire :", "Saisie du commentaire")[/COLOR]
Sheets(i).Range("H5") = Comment
Next i
End Sub