Sub creerFeuille(nomFeuille As String)
On Error GoTo err_Handler
Sheets("RH MODEL").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Trim(nomFeuille)
Exit Sub
err_Handler:
If Err.Number = 9 Then
MsgBox "La copie se base sur une feuille nommée 'RH MODEL' et celle-ci n'existe plus"
ElseIf Err.Number = 1024 Then
MsgBox Err.Number & " " & Err.Description
End If
Err.Clear
End Sub