Private Sub CommandButton1_Click()
Dim plage As Range
Application.ScreenUpdating = False
Sheets("Sheet1").Columns(1).Replace ".Aug ", "-août-", LookAt:=xlPart
Range("B2:IV65536").ClearContents
Set plage = Intersect(Range("B2:IV65536"), ActiveSheet.UsedRange)
If Not plage Is Nothing Then
plage.FormulaR1C1 = "=INDEX(Sheet1!C1:C35,MATCH(RC1,Sheet1!C1),MATCH(""*""&R1C,Sheet1!R4,0))"
plage = plage.Value
plage.Replace ".", "."
End If
End Sub