Conseil pour macro boucle

Bonjour

J’ai de code que j’essaye d’améliore, accélère. (je pense qu’il doit avoir trop boucle)

Private Sub CommandButton1_Click()
Do While ActiveCell <> ""

valeur = Mid(ActiveCell.Offset(0, -3), 3)
valeur2 = Mid(ActiveCell.Offset(0, -2), 3)

derl = Sheets("1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To derl

If Sheets("1").Range("t" & i) Like "*" & valeur & "*" And Sheets("1").Range("u" & i) Like "*" & valeur2 & "*" Then
ActiveCell.Offset(0, 5) = Sheets("1").Range("t" & i).Offset(0, -18)
ActiveCell.Offset(0, 6) = Sheets("1").Range("t" & i)
ActiveCell.Offset(0, 7) = Sheets("1").Range("u" & i)

Next
Loop

End Sub

Je ne suis pas encore très à l’aise avec les tableaux sur VBA j’ai donc commencé à teste ce code qui qui me semble plus rapide mais je sais pas comment boucler avec Do While "erreur" et je ne sais pas où mettre la condition Like "*" & valeur & "*"

Private Sub CommandButton1_Click()

Do While ActiveCell <> ""

valeur = ActiveCell

Set Plage = Sheets("1").Range("a2:h" & Range("h55000").End(xlUp).Row)

For Each c In Plage
If c = valeur Then

ActiveCell.Offset(0, 5) = c.Offset(1, -18)

End If
Next c
ActiveCell(1, 0).Select

Loop

End Sub

Merci pour votre aide et conseil

Bonsoir

Un fichier peut-être ?

Rechercher des sujets similaires à "conseil macro boucle"