Untitled

Sub ajouter_button()
If Range("k8") = "" Or Range("k9") = "" Or Range("k10") = "" Or Range("k11") = "" Or Range("k12") = "" Then
    MsgBox ("Des informations manquantes")
    
Else
    
    If Range("B10") = "" Then
        Range("B10").Value = Range("k12").Value
    Else
        PasserALaCelluleSuivante
        
    End If
        

End If
End Sub