Sub VérifRensCells(Abandon As Boolean)
Dim V As Variant, L As Long, J As Long, C As Long
V = Feuil2.[A1].Resize(Feuil2.[C65536].End(xlUp).Row, 20).Value
For L = 3 To UBound(V)
If V(L, 3) <> "" Then
For J = 0 To 12: C = Array(1, 2, 4, 5, 7, 8, 11, 12, 13, 14, 18, 19, 20)(C)
If V(L, C) = "" Then
Feuil2.Activate
Feuil2.Cells(L, C).Select
MsgBox "Cellule non renseignée", vbExclamation
Abandon = True: Exit Sub: End If
Next J
End If
Next L
Abandon = False
End Sub