Sub Bouton2_Clic()
With Worksheets("Feuil1").Range("Tableau3")
Maj = False
For i = 1 To .Rows.Count
If .Item(i, 1) <> .Item(i, 3) Then
Maj = True
nb = Range("MAJ").Rows.Count + 1
Range("MAJ").Item(Range("MAJ").Rows.Count, 2) = .Item(i, 1)
Range("MAJ").Item(Range("MAJ").Rows.Count, 4) = .Item(i, 3)
Range("MAJ").Item(Range("MAJ").Rows.Count, 3) = .Item(i, 2)
Range("MAJ").Item(Range("MAJ").Rows.Count, 5) = .Item(i, 4)
Sheets("MAJ").ListObjects("MAJ").Resize Range("A1:E" & nb + 1)
End If
Next i
For i = 1 To .Rows.Count
If .Item(i, 2) <> .Item(i, 4) Then
Maj = True
nb = Range("MAJ").Rows.Count + 1
Range("MAJ").Item(Range("MAJ").Rows.Count, 2) = .Item(i, 1)
Range("MAJ").Item(Range("MAJ").Rows.Count, 4) = .Item(i, 3)
Range("MAJ").Item(Range("MAJ").Rows.Count, 3) = .Item(i, 2)
Range("MAJ").Item(Range("MAJ").Rows.Count, 5) = .Item(i, 4)
Sheets("MAJ").ListObjects("MAJ").Resize Range("A1:E" & nb + 1)
End If
Next i
If Maj Then
MsgBox ("Mise à jour à faire")
Else: MsgBox ("Aucune Mise à jour")
End If
End With
End Sub