Bonjour j'ai un petit problème, ma macro ne rentre pas dans ma deuxième pour une raison que j'ignore.

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 uniformisation()
Application.ScreenUpdating = False
Dim i As Long, b As Long, derniereLigne As Long
With ThisWorkbook
derniereLigne = .Worksheets("Astradec").Range("E" & Rows.Count).End(xlUp).Row
 
For i = 10 To derniereLigne
 For b = 10 To deriereLigne
        If .ActiveSheet.Range("E" & b).Value = .Worksheets("Astradec").Range("E" & i).Value Then
            .ActiveSheet.Range("D" & b).Value = .Worksheets("Astradec").Range("D" & i).Value
            Exit For
        End If
    Next
Next
End With
Application.ScreenUpdating = True
End Sub