Ecriture auto en ouvrant classeur

bonjour je cherche a mettre des valeurs dans différentes cellules a l'ouverture du classeur sur une feuille specifique "feuille 1"

merci pour votre aide

Bonjour,

Private Sub Workbook_Open()
    Worksheets("Feuil1").Range("A1:D1") = 1
End Sub

A mettre dans le module classeur (ThisWorkbook).

Cordialement.

merci beaucoup mferrand

c est ce que je cherchais