Bonjour le fil et le forum,
une solution possible, la première ligne de chaque client est gardée
Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Export" Then
ws.UsedRange.RemoveDuplicates Columns:=7, Header:=xlYes
End If
Next ws
End Sub