Sub Nettoyage()
Dim DLigIti As String
' Effacer l'itinéraire précédent si existant
With Sheets("Itinéraire")
.Range("DepAdr").ClearContents
.Range("DepVille").ClearContents
.Range("FinAdr").ClearContents
.Range("FinVille").ClearContents
[COLOR="#ff00ff"].Range("Requete").ClearContents 'plantage[/COLOR]
.Range("TotalKm").ClearContents
.Range("TotalDurée").ClearContents
.Range("LienMap").Hyperlinks.Delete
DLigIti = .Range("D" & Rows.Count).End(xlUp).Row
If DLigIti > 1 Then
.Range("D2:H" & DLigIti + 1).ClearContents
End If
End With
Calculate
End Sub