Bonjour,

Je me permets de faire ce post car je n’ai trouvé aucun résultat favorable, ni sur ce site ni sur internet.

J’ai toujours un message d’erreur quand je lance la macro. Erreur 1004.

Voici ma macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub DEP54()
 
Dim CP As Variant
CP = Cells(6, 2)
Dim GAUCHECP As Variant
GAUCHECP = Left(CP, 2)
Dim VALEUR As Variant
VALEUR = Application.WorksheetFunction.VLookup(CP, LISTECP54, 2, False).Value
 
 
If VALEUR = NORD Then
    Sheets("Feuil2").Range("A10") = "METZ"
Else
    Sheets("Feuil2").Range("A10") = "NANCY"
 
End If
End Sub
SI vous trouvez une erreur ! Vous me sauvez mon après midi

Cordialement .