Macro Impression avec des conditions sur plusieurs cellules et lignes (RESOLU)

Sub test()
Dim r As Range
Set r = Range("A21:BL21")
If Application.CountA(r) = 17 Then
MsgBox "Toutes les cellules de la ligne " & r.Row & " sont remplies"
End If
End Sub

Sub testBambi35()
'je remplis les 4 cellules
[A1:D1] = Rnd
LigneOK Range("A1:D1")
[A1:D1] = Empty
'je ne remplis que 3 cellules
[A1:C1] = Date
LigneOK Range("A1:D1")
End Sub
Private Sub LigneOK(r As Range)
If Application.CountA(r) = 4 Then
'ici mettre le code si la condition est vraie
'pour l'exemple j'affiche un Msgbox
MsgBox "Toutes les celules de la plage " & r.Address(0, 0) & " sont remplies.", vbInformation
Else
MsgBox "Des cellules sont vides dans la plage: " & r.Address(0, 0), vbCritical
End If
End Sub