re,
j'inscrit 1234 sur l'onglet ADMIN cellule C3
et j’exécute la macro Valider_et_Sauvegarder()
en mode pas à pas
sur la ligne
If Not cell Is Nothing Then
si je place le curseur sur la variable cell
la valeur est nothing, c'est normal puisque celle-ci n'a pas été renseignée
et donc le MsgBox apparaît
If Not cell Is Nothing Then
ln = Sheets("dataadmin").Range("B:C").Find(Range("C3"), lookat:=xlWhole).Row
Range("D6:O9").Copy Sheets("dataadmin").Range("B" & ln + 1)
Range("C3:E3").Select
Else
MsgBox "ID " & Range("C3") & " n'existe pas sur la feuille ''data''.", 16
End If