Set Wb6 = Workbooks.Open(Chemin6)
'Dèfinit et affiche le message
MaVariable = InputBox("Tapez la refClient que vous voulez supprimer:")
If MaVariable = "" Then Exit Sub
'Boucle sur tout le classeur "Tournées"
For z = 1 To 3
'Dèfinit la varible x
Set x = Wb6.Sheets(z).Cells.Find(MaVariable, , xlValues, xlWhole, , , False)
'Si la RefClient Affichée dans le message est trouvé ,Alors copie est insert à l'endroit dèfinit
If Not x Is Nothing Then
Wb6.Sheets(z).Range(x.Offset(-2, -5), x.Offset(26, 5)).Delete
End If