Bonjour,
je vous remercie infiniment et je suis vraiment désolé j'ai pas vu vos repenses hier j'avais quelques soucis.
j'ai fait un essais ça marche mais j'ai un petit problème pouvez-vous m'aider
Dim i, j As Integer
For i = 4 To Range("B4").End(xlDown).Row
If Range("B" & i) = Range("B" & i...