Valider des données dans BD

Sub valider()
Dim s As Worksheet 'déclare la variable s (onglet Saisie)
Dim b As Worksheet 'déclare la variable b (onglet BD)
Dim c As Byte 'déclare la variable c
Dim col As Byte 'déclare la variable col (COLone)
Dim l As Integer 'déclare la variable l
Dim lig As Integer 'déclare la variable lig (LIGne)
Set s = Sheets("saisie") 'définit l'onglet
Set b = Sheets("BD") 'définit l'onglet
For c = 7 To b.Range("IV2").End(xlToLeft).Column 'boucle de 7 à dernière colonne utilisée
    If s.Range("B8") = CDate(b.Cells(2, c)) Then 'condition si la date de la cellule (ligne 2, colonne c) correspond,
        col = c 'définit la colonne
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next c 'prochaine colonne de la boucle
For l = 9 To b.Range("D65536").End(xlUp).Row 'boucle de 9 à la dernière ligne utilisée
    If s.Range("B12").Value = b.Cells(l, 4).Value Then 'condition si le nom de la cellule (ligne l, colonne c) correspond,
        lig = l 'définit la ligne
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next l 'prochaine ligne de la boucle
b.Cells(lig, col).Value = s.Range("F4").Value 'récupère la donnée la donnée
If MsgBox("Désirez-vous continuer ?", vbYesNo, "Validation") = vbYes Then 'condition : si oui au message
    s.Range("D4").Value = "" 'vide la "place"
    s.Range("B12").Value = "" 'vidde le "nom-prénom"
    s.Range("D4").Select 'place le curseur sur la "place"
End If 'fin de la condition
End Sub