Améliorer ces boucles

Bonjour à tous !

J'aurais besoin d'une aide charitable qui pourrait améliorer cette macro. Elle fonctionne mais le temps d'exécution est trop long.

J'ai un problème avec la variable dernière colonne présentement la macro fonctionne avec des valeurs fixes de la colonne 6 à 25, je voudrais fonctionner avec une variable étant donné que le nombre de colonnes est variable. Dans le fichier joint il vous sera plus facile de comprendre.

Merci de votre aide !

Bonjour,

Ta macro modifiée :

Sub compteur()
Dim iR%, iC%, iRS%, iCS%, cpt%, ArrS, ArrC
ArrS = Worksheets("Ecart").Range("A1").CurrentRegion.Value
Range("B2:F300").ClearContents
ArrC = Range("A1").CurrentRegion.Value
   For iRS = 2 To UBound(ArrS)
      For iR = 2 To UBound(ArrC)
         For iC = 4 To 6
            For iCS = 6 To UBound(ArrS, 2)
               If ArrS(iRS, 3) = ArrC(iR, 1) Then
                  Cells(iR, 2) = ArrS(iRS, 4)
                  Cells(iR, 3) = ArrS(iRS, 5)
                  If Not IsEmpty(ArrS(iRS, iCS)) Then
                     If ArrC(1, iC) = ArrS(iRS, iCS) Then
                        cpt = cpt + 1
                     End If
                  End If
               End If
               If cpt > 0 Then Cells(iR, iC) = cpt
            Next
            cpt = 0
         Next
      Next
   Next
End Sub

A+

Bonjour,

Est-ce que tu as essayé :

For x = 6 To DerCol

Bonjour à tous !

Merci pour la solution qui fonctionne très bien.

Oxydum , oui j'ai essayé mais n'a pas fonctionné