Rebonjour
comment comparer la colonne A du fichier 1 avec colonne B du fichier B
merci de votre aide
Sub T()
Dim Numero_Police As Range 'base
Dim Numero_Contrat As Range
Dim dernligne, dernligne2 As Long
With Worksheets("TD")
dernligne2 = .Range("A" & .Rows.Count).End(xlUp).Row
Set Numero_Contrat = .Range("B3:B" & dernligne2)
End With
With Worksheets("Sinistre")
dernligne = .Range("A" & .Rows.Count).End(xlUp).Row
Set Numero_Police = .Range("A2:A" & dernligne)
End With
For i = 2 To dernligne 'base sinistre
For j = 3 To dernligne2 'tdb
If Worksheets("Sinistre").Cells(i, 1).Value = Worksheets("TD").Cells(j, 2).Value Then
'effectuer les macros
End If
Next j
Next i
End Sub