Bonjour
voici ma macro :
'Donner un numero aleatoire à chq eleve de 1 à n
For Each c In Plage
If c = 'A' Then c = 'A'
Do
c = Int(27 * Rnd()) + 1
Loop Until Application.CountIf(Range('g4:g' & c.Row), c) = 1
Next c
J'aimerais que si c = 'A' alors c = 'A' ET on passe à la cellule suivante c.Offset(1, 0)
merci