Sub remplaceCOLLAB()
Dim ws As Worksheet
On Error Resume Next
With ThisWorkbook
For Each ws In .Worksheets
If IsNumeric(ws.Name) Then
Range("H6:H900").Select
Selection.Replace What:="EP", Replacement:="C2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("H6:H900").Select
Selection.Replace What:="CL", Replacement:="C2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Next
End With
MsgBox "opération effectuée"
End Sub