Bonjout Thibaut
Un peu bordel ton code, rire
bon voici une version révisé de ton code:
Dim rep As String
MsgBox " Attention, cette macro s'execute dès l'ouverture du fichier!"
rep = MsgBox("S'agit-il d'une année bissextile?", vbYesNo, "Choix")
If rep = vbYes Then
Rows("2:2").Insert Shift:=xlDown
Range("C2").Value = "29-févr"
Range("A2").Value = "DEU"
Range("B2").Value = "DBT"
Range("E2").Value = "24"
Range("B1").Select
Else
Range("B1").Select
End If
MsgBox " 1/ Sélectionner le fichier où il faut aller rechercher les températures relevées!"
rep = Application.Dialogs(xlDialogOpen).Show
N'oublie pas de modifie les cellules, rire
Bonne journée
@Christophe@