Option Explicit
Sub Copie_et_Nomme()
Dim Organe As String
10 Sheets("Fiche Vierge").Unprotect
20 Organe = Sheets("Fiche Vierge").Cells(3, 15)
30 Sheets("Fiche Vierge").Cells(3, 15).Formula = _
"=IF(ISERROR(LEFT(RC[-11],FIND(""µ"",SUBSTITUTE(RC[-11],"" "",""µ"",2)))),RC[-11],LEFT(RC[-11],FIND(""µ"",SUBSTITUTE(RC[-11],"" "",""µ"",2))))"
40 Sheets("Fiche Vierge").Copy After:=Sheets(Sheets.Count)
50 ActiveSheet.Name = Cells(2, 9) & " " & Organe
60 Sheets("Fiche Vierge").Activate
70 Range("C1:E1,G2,I2,K2,D3:M3,E4:M4,B6:M27").Select
80 Range("B6").Activate
90 Selection.ClearContents
100 Range("C1:E1").Select
110 Cells(1, 13) = Cells(1, 13) + 1
120 Sheets("Fiche Vierge").Protect
End Sub