If Sheets("sante").Range("a3") <> "" Or Sheets("sante").Range("b3") <> "" _
Or Sheets("sante").Range("c3") <> "" Or Sheets("sante").Range("d3") <> "" _
Or Sheets("sante").Range("e3") <> "" Or Sheets("sante").Range("f3") <> "" _
Or Sheets("sante").Range("g3") <> "" Or Sheets("sante").Range("h3") <> "" _
Or Sheets("sante").Range("i3") <> "" Or Sheets("sante").Range("j3") <> "" _
Or Sheets("sante").Range("k3") <> "" Or Sheets("sante").Range("l3") <> "" _
Or Sheets("sante").Range("m3") <> "" Or Sheets("sante").Range("n3") <> "" _
Or Sheets("sante").Range("o3") <> "" Or Sheets("sante").Range("p3") <> "" _
Or Sheets("sante").Range("q3") <> "" Or Sheets("sante").Range("r3") <> "" _
Or Sheets("sante").Range("s3") <> "" Or Sheets("sante").Range("t3") <> "" _
Or Sheets("sante").Range("u3") <> "" Or Sheets("sante").Range("v3") <> "" _
Then
en sachant que je dois controler toutes les cellules de la ligne 3 jusqu a BQ , et si une des cellules est renseignée effacer la ligne
Dim cellule As Range
For Each cellule In Sheets("sante").Range("A3:BQ3")
If cellule = "" Then
MsgBox ("La cellule " & cellule.Address & " est vide")
End If
Next cellule