Sub verif()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim Rep As Integer
Sheets("Reconstitution").Activate ' feuille de destination
Col = "E" ' colonne données à tester'
NumLig = 7 'N° de la 1er ligne de données en comptant
NbrLig = Cells(65536, Col).End(xlUp).Row
For Lig = 4 To NbrLig 'n° de la 1ere ligne de données'
If Cells(Lig, Col).Value = "" Then
MsgBox ("Veuillez vérifier la classe de la ligne: " & Lig)
ElseIf Cells(Lig, Col) < 1 Or Cells(Lig, Col).Value > 5 Then
MsgBox ("la ligne " & Lig & " ne contient pas de valeur autorisée")
End If
Next
End Sub