Bonjour, voila mon probleme,
J'ai tenter de faire tentative en changeant ceci, mais sans succes:
Range(Cells(ln, col), Cells(ln, col + 4)).ClearContents
GoTo fin
ElseIf WorksheetFunction.CountA(Range(Cells(ln, col + 1), Cells(ln, col + 7))) = 5 Then...