Sub SupprimerSauf_CA()
Dim Cel As Range, j%
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 7 To 3 Step -1
For j = 368 To 2 Step -1
If Cells(i, j).Value <> "CA" Then Cells(i, j).ClearContents
Next
Next
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub