Private Sub Saisie_Click()
Dim lgCol As Long
Dim lgDerLig As Long
Dim strSaisie As String
' Dernière ligne
lgDerLig = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
' Boucle de la colonne A à J
For lgCol = 1 To 2
' Pas de question pour la colonne "Date de réception"
If lgCol <> 6 Then
strSaisie = InputBox(Cells(3, lgCol) & "?", "Saisie")
' Si saisie effectuée
If strSaisie <> "" Then
' La colonne F = date du jour
If Range("F" & lgDerLig).Value = "" Then Range("F" & lgDerLig) = Date
Cells(lgDerLig, lgCol).Value = strSaisie
End If
End If
Next lgCol
End Sub