Donc en fait c'est tout bête, tu viens de m'éclairer sur un truc, c'est qu'en fait j'avais adapté ton sub reportimpayé, mais moi j'avais pas besoin de reporter toute la ligne, juste des morceaux puis faie des opérations dessus ce que j'avais pas compris c'est que pour appeler juste une cellule Sheets(1).Range("b" & LigneSource).Value suffisait. 1
Enfin 2 c'était la syntaxe pour utiliser le or avec le if qui me manquait
ça je l'ai résolu avec un select case Sheets(1).Range("b" & LigneSource).Value
Case "p", "bet", "rst", "vt"
Else Case
End select
et ça marche!!
En tout cas merci.
Steplof qui apprend...