Merci bien JB
Je vais l'essayeer
et je reviens
merci
Rebonsoir JOB75
Désolé Job75, je t'ai appelé JB, par réflexe j'ai un ami que j'appelle JB
J'ai essayé mais j'ai un N/A qui s'affiche
Par contre j'ai trouvé une façon qui me convient
mais il s'arrête à mi parcourt c'est à 4200 (le paresseux)
si tu pouvais me le modifier,
ce sera sympathique de ta part
Dim c As Range, dl As Integer
Application.ScreenUpdating = False
dl = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne de la colonne A
For Each c In Range("A7:A" & dl) 'de A7 à la dernière ligne
c.Interior.ColorIndex = xlNone 'on efface les couleurs
c.Offset(0, 5).ClearContents 'efface les données en F
If Range("C1") <> "" And Range("C1") <> 0 Then 'si C1 nest pas vide et différent de 0
If c.Value Mod Range("C1") = 0 Then 'si multiple de C1
c.Interior.ColorIndex = 7 'couleur violet
c.Offset(0, 5) = "ok" 'ok en F
End If
Else
c.Interior.ColorIndex = xlNone 'sinon pas de couleur
End If
Next c
Application.ScreenUpdating = True
End Sub
Merci pour ton aide