ActiveSheet.Range(cellule).value = "Bonjour" |
On Error Resume Next |
ActiveSheet.Range(cellule).value = "Bonjour" |
On Error GoTo TraitErreur |
ActiveSheet.Range(cellule).value = "Bonjour" |
Exit Sub |
MsgBox "Erreur de saisie", vbCritical, "Gestion des erreurs" |