Exécution macro si cellules remplies

Bonjour,

J'ai une petite macro qui insère une ligne au dessus de la dernière créée (voir fichier joint).

Je n'arrive pas à trouver le code qui me renverrai une message box d'erreur (genre "Veuillez remplir les cellule de la ligne X") afin de ne pas créer l'insertion suivante si toute les cases de la ligne en cours ne sont pas remplies.

Quelqu'un a t'il la solution ?

Merci d'avance.

Nickal.

Bonjour

A tester

Sub Entree()

  If Application.CountA(Range("B5").Resize(1, 5)) <> 5 Then
    MsgBox "La ligne " & Range("A5") & " n'est pas complétement remplie"
  Else
    Rows("5:5").Insert Shift:=xlDown
    Rows("6:6").Copy
    Rows("5:5").PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("A5").FormulaR1C1 = "=R[1]C+1"
    Range("B5").Select
  End If
End Sub

C'est nickel.

Merci et bonnes fêtes de fin d'année.