Bonsoir Coogar,
En réponse à ton problème voici une façon de faire
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Left(Target.Value & "....", 4) <> ".SER" Then _
MsgBox "Erreur de saisie" & Chr(10) & "Le contenu de la cellule $A$1 ne commence pas par .SER"
End Sub
Il suffit donc de programmer l'évènement "change" dans la feuille "worksheet" contenant la cellule à tester dans l'exemple il s'agit de la cellule A1. De cette façon, chaque fois que la valeur de A1 est modifiée, le contrôle est fait
Si tu as besoin d'explications complémentaires n'hésite pas à "Rappeler".
Bon courage pour la suite ....