Sub proc()
Dim onglet As Worksheet, compteur As Integer, plageRef, PlageToUpdate As Range
Set plageRef = Sheets("Total").UsedRange
'plageRef.Select
For Each onglet In Sheets
If onglet.Name <> "Total" Then
Set PlageToUpdate = onglet.UsedRange
'PlageToUpdate.Select
For compteur = PlageToUpdate.Rows.Count To 2 Step -1
Set c = plageRef.Find(PlageToUpdate(compteur, 1))
If c Is Nothing Then
PlageToUpdate(compteur, 1) = ""
PlageToUpdate(compteur, 2) = ""
End If
Next compteur
End If
Next onglet
End Sub