If condition1 or condition 2 Then

Tu es sure que ta condition est correcte ?

 If Cells(i, 2).Offset(0, 12) = "FTHUB" Or "MTHUB" Then 

Moi j'aurais mis : If Cells(i, 2).Offset(0, 12) = "FTHUB" Or Cells(i, 2).Offset(0, 12) ="MTHUB" Then

Rebonjour,

Merci beaucoup toto1983!
En effet, j'avais essayé aussi mais peut-être un peu trop vite parceque ça n'avait pas marché.
Par ailleurs il se trouve que mon programme ne marche toujours pas même si l'erreur est ailleurs.

Si tu peux m'aider à trouver l'origine du problème, ce serait merveilleux.
C'est un peu près le même programme.
Il s'agit d'un classeur où je m'intéresse à 2 feuilles en particulier.
J'aimerais bien réussir à trier dans la feuille clôture les codes d'opérations de change répondant à certaines exigences comprises dans cette même feuille. Ensuite, j'aimerais, sans répeter un code d'opération de change, les reporter sur la feuille synthèse les uns en dessous des autres.
Voilà comment il se présente pour le moment:

Sub écrirecodaffaireHub()

Worksheets("synthèse").Activate
Range("B7").Select

Worksheets("clôture").Activate
Dim compteur1
compteur1 = 0
For i = 7 To Rows.Count
Worksheets("clôture").Activate
If Cells(i, 2).Offset(0, 14) = "VUFIRMCO" Then
If Cells(i, 2).Offset(0, 12) = "FTHUB" Or Cells(i, 2).Offset(0, 12) = "MTHUB" Then
If Cells(i, 2) <> Cells(i - 1, 2) Then
compteur1 = Cells(i, 2).Value
Worksheets("synthèse").Activate
Selection.Value = compteur1
Selection = Selection.Offset(1, 0)
End If
End If
End If

Next i

End Sub

J'ai conscience qu'il y a sûrement des étapes ou des mentions inutiles dans ce programme mais maintenant je n'arrive plus à avoir d'idées.

Merci beaucoup pour votre aide!

Elima

Ok Elima c'est un honneur de t'assister je v y réfléchir et je te tiens au courant demain ou ce soir .
Pas de problème, mon souci c que tu réussisses ;D