Bonjour,

Je rencontre le message d'erreur "syntax error" pour le code suivant :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Macro1()
Dim i, j As Integer
 
For i = 2 To 5295
For j = 2 To 359
 
If Sheets("SCL").Cells(i, 2).Value = Sheets("Feuil1).Cells(j, 2).Value And
Sheets("SCL").Cells(i, 64).Value = Sheets("Feuil1").Cells(j, 18).Value Then
Sheets("SCL").Cells(i, 70).Value = Sheets("Feuil1").Cells(i, 20).Value And
Sheets("SCL").Cells(i, 35).Value = Sheets("Feuil1").Cells(i, 24).Value And
Sheets("SCL").Cells(i, 36).Value = Sheets("Feuil1").Cells(i, 25).Value And
Sheets("SCL").Cells(i, 37).Value = Sheets("Feuil1").Cells(i, 26).Value And
 
Sheets("SCL").Cells(i, 40).Value = Sheets("Feuil1").Cells(i, 27).Value And
Sheets("SCL").Cells(i, 41).Value = Sheets("Feuil1").Cells(i, 28).Value And
Sheets("SCL").Cells(i, 42).Value = Sheets("Feuil1").Cells(i, 29).Value And
 
Sheets("SCL").Cells(i, 44).Value = Sheets("Feuil1").Cells(i, 30).Value And
Sheets("SCL").Cells(i, 45).Value = Sheets("Feuil1").Cells(i, 31).Value And
Sheets("SCL").Cells(i, 46).Value = Sheets("Feuil1").Cells(i, 32).Value And
 
Sheets("SCL").Cells(i, 47).Value = Sheets("Feuil1").Cells(i, 33).Value And
Sheets("SCL").Cells(i, 48).Value = Sheets("Feuil1").Cells(i, 34).Value And
Sheets("SCL").Cells(i, 49).Value = Sheets("Feuil1").Cells(i, 35).Value And
 
Sheets("SCL").Cells(i, 58).Value = Sheets("Feuil1").Cells(i, 36).Value And
Sheets("SCL").Cells(i, 59).Value = Sheets("Feuil1").Cells(i, 37).Value And
Sheets("SCL").Cells(i, 60).Value = Sheets("Feuil1").Cells(i, 38).Value And
 
Rows("i:i").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
 
Next j
Next i
End Sub
Pouvez-vous m'aider sur la syntaxe svp ?

Merci bien,