Bonjour,

J'essaye en vain de faire une petite macro avec de renommer plusieurs cellules de plusieurs feuilles. Mais rien ne se passe.
J'ai tout essayé. Pouvez vous m'aider ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
ActiveWorkbook.Worksheets(1).Select
 
    For I = 1 To ActiveWorkbook.Worksheets.Count
        If InStr(Worksheets(I).Name, "VP Data") <> 0 Then
           ActiveWorkbook.Names.Add Name:="Vehicule", RefersTo:="Worksheets(I).Name!$D4"
        End If
    Next
Merci de votre aide.
Bonne journée.