Sub Report_dans_distancier()
Dim f1 As Worksheet, f2 As Worksheet
Dim DerLig_f1 As Long, i As Long
Application.ScreenUpdating = False
Set f1 = Sheets("BDD Adresse")
Set f2 = Sheets("Distancier")
DerLig_f1 = f1.Range("AD" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig_f1
If f2.Cells(i, "A") <> f1.Cells(i, "AD") And f1.Cells(i, "AD") <> 0 Then
f2.Rows(i).Insert Shift:=xlDown
f2.Columns(i).Insert Shift:=xlToRight
f2.Cells(i, "A") = f1.Cells(i, "AD")
f2.Cells(1, i) = f1.Cells(i, "AD")
f2.Cells(i - 1, i).Interior.ColorIndex = xlNone
f2.Cells(i, i - 1).Interior.ColorIndex = xlNone
End If
Next i
Set f1 = Nothing
Set f2 = Nothing
End Sub