'On vérifie qu'il n'existe pas déjà un enregistrement pour cette date et poste
With Sheets("Donnees")
If .Cells(Ligne, 3).Value <> "" Then
MsgBox "Enregistrement déjà effectué pour le " & Jour & " poste " & Poste, 16
.Activate
.Cells(Ligne, 3).Select
'.Rows(Ligne).Select
Exit Sub
End If
End With