rebonjour
oouuppss…une petite erreur lors du copier/coller . Les lignes ci-dessous peuvent etre supprimées
....
If Len(Range("A1")) < Range("A3") Then
MsgBox "La valeur de la Cellule A3 ne peut etre inférieure au nombre " & _
"de caracteres de la cellule A1 .", , "Message"
Exit Sub
End If
.....
bonne soiree
MichelXld