Bonjour,

Je tente de créer une macro afin de lancer une autre macro selon si les cellules D8 de deux feuilles différentes ont le même contenu (texte). Je reçois un message d'erreur quand je lance ma macro. Je dois vous avouer que je ne comprends pas mon erreur. Pourriez-vous, éclairer ma lanterne?

Merci d'avance pour votre précieuse aide.

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
18
19
20
21
 
Sub Selection_Semaine()
 
    Dim Route10A As String, Route10B As String
 
    Route10A = Sheets("Route 10A").Range("D8")
 
    Route10B = Sheets("Route 10B").Range("D8")
 
    If Route10A = Route10B Then
 
    ImprimerRoute10Semaine
 
    Else
 
    Imprimer_Semaine
 
    End If
 
 
End Sub