Salut Marie Claude
un tit exemple avec explications
' debut du code
Option Explicit
Sub effectif1()
' déclarer les variables (avec option explicite , on y est obligé)
Dim I As Integer
Dim Last As Integer
Dim Valeur As Variant
' recherche de la dernière ligne occupée de la colonne A
' en commencant par le bas
Last = Range('A65000').End(xlUp).Row
' boucle de la ligne 1 à la dernière trouvée
For I = 1 To Last
' mémorisation de la valeur (
Valeur = Cells(I, 1)
' si pas numerique , on le signale
If Not IsNumeric(Valeur) Then Cells(I, 2).Value = 'non numérique'
'i s'incrémente à chaque next donc Cells(i,2) augmente , i étant la ligne, 2 la colonne B
Select Case Valeur
Case Is 50'
End Select
Next I ' boucle du for
End Sub