Sub AjoutCourrierEntrant()
'
' AjoutCourrierEntrant Macro
'
Dim FCible As Worksheet, derlg&
Set FCible = Sheets("chrono arrivé")
derlg = FCible.Cells(FCible.Rows.Count, "A").End(xlUp).Row + 1
With Sheets("formulaire arrivé")
If Application.CountA(.Range("D7,G7,D10,D13,D16")) = 5 Then
FCible.Cells(derlg, 1) = "A"
FCible.Cells(derlg, 2) = derlg - 1
FCible.Cells(derlg, 3) = .[D7]
FCible.Cells(derlg, 4) = .[D13]
FCible.Cells(derlg, 5) = .[D10]
FCible.Cells(derlg, 6) = .[G7]
FCible.Cells(derlg, 7) = .[D16]
.Range("D7,G7,D10,D13,D16").ClearContents
Else
MsgBox "Saisie incomplète" & vbLf & "Donnée non enregistrée", vbCritical, "Erreur"
End If
End With
End Sub