Bonjour,
Merci pour la réponse. Après test, je m'aperçoit que je n'ai pas l'extraction des différences dans la colonne P mais plutôt un copier coller des deux colonnes à comparer.
Sub Comparaison()
Dim Plag1 As Range, Plag2 As Range, L As Long
Dim Tablo1, Tablo2, aa()
Dim a As Long, B As Integer, C As Long, D As Integer
L = Sheets("Gestion alarmes disable inhibit").Range("C65000").End(xlUp).Row
Set Plag1 = Sheets("Gestion alarmes disable inhibit").Range("C5:C" & L) 'première plage de recherche
L = Sheets("Export client event").Range("E65000").End(xlUp).Row
Set Plag2 = Sheets("Export client event").Range("E2:E" & L) 'plage de comparaison
'Set Plag3 = Sheets("Gestion alarmes disable inhibit").Range("P5") 'début de plage de réception des différences
'comparaison des plages
'If Plag1.Rows.Count <> Plag2.Rows.Count Then
'MsgBox "Les plages à comparer ne sont pas identiques"
'Exit Sub
'End If
Sheets("Gestion alarmes disable inhibit").Select
Range("P5
200").ClearContents 'efface la plage de réception
Application.ScreenUpdating = False
Tablo1 = Plag1: Tablo2 = Plag2: D = 1
For B = 1 To UBound(Tablo2, 1)
For a = 1 To UBound(Tablo1, 1)
If Tablo1(a, 1) = Tablo2(B, 1) Then
C = C + 1
'Plag3(C, D) = Tablo1(A, B)
Tablo1(a, 1) = "": Tablo2(B, 1) = "" 'supprime les égaux
End If
Next
Next
For a = 1 To UBound(Tablo1, 1)
If Tablo1(a, 1) <> "" Then C = C + 1: ReDim Preserve aa(1 To 1, 1 To C): aa(1, C) = Tablo1(a, 1)
Next
For B = 1 To UBound(Tablo2, 1)
If Tablo2(B, 1) <> "" Then C = C + 1: ReDim Preserve aa(1 To 1, 1 To C): aa(1, C) = Tablo2(B, 1)
Next
aa = Application.Transpose(aa)
Sheets("Gestion alarmes disable inhibit").Range("P5").Resize(UBound(aa, 1), 1) = aa
End Sub