Sub Dédoublonner()
Dim Dest As Range, Source As Range
With ThisWorkbook
'
' Définir la source des données
Set Source = .Sheets("Feuil1").Range("Tableau1[[Date]:[Formation]]")
'
' Définir la destination des données
With .Sheets("Feuil2").ListObjects("Tableau2")
If .InsertRowRange Is Nothing Then
Set Dest = .ListRows.Add().Range
Else
Set Dest = .InsertRowRange
End If
End With
'
' Copier la source dans la destination
Source.Copy Dest.Resize(Source.Rows.Count, Source.Columns.Count)
'
' Dédoublonner la destination
.Sheets("Feuil2").Range("Tableau2[#All]").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
End With
End Sub