Sub avis()
Dim i As Long
For i = 6 To Range("B" & Rows.Count).End(xlUp).Row Step 2
If Cells(i, 1).Value <> "" And Cells(i, 2).Value <> "" Then
Select Case Cells(i, 2)
Case 0.1 To 24.99
Cells(i, 4) = "Notion non acquise!"
Case 25 To 39.99
Cells(i, 4) = "Résultats très moyens !"
Case 40 To 59.99
Cells(i, 4) = "Résultats moyens "
Case 60 To 79.99
Cells(i, 4) = "C'est bien !"
Case 80 To 100
Cells(i, 4) = "C'est très bien"
End Select
End If
Next i
End Sub