VBA recopie

Bonjour à tous,

Nouveau membre de ce jour, pourriez- vous svp m'aider ?

Le VBA ci-dessous fonctionne très bien, mais je dois le modifier.

Il interdit la recopie (Do While Not IsEmpty) des lignes 39, 40 & 61 si les cellules 46 à 50 sont vides.

Je voudrais recopié quand même ces lignes 39, 40 & 61 même si les cellules 46 à 50 sont vides ou non vides.

Merci d'avance.

Fabrice.

Lig = 3 'première ligne à vérifier

Lg2 = 0

Do While Not IsEmpty(Worksheets(1).Range("B" & Lig))

If (Worksheets(1).Cells(Lig, 46) <> "") Or (Worksheets(1).Cells(Lig, 47) <> "") Or (Worksheets(1).Cells(Lig, 48) <> "") Or (Worksheets(1).Cells(Lig, 49) <> "") Or (Worksheets(1).Cells(Lig, 50) <> "") Then

Lg2 = Lg2 + 1

' Code Produit

Worksheets("Maj_TAXE_PF_PROD").Cells(Lg2, 1) = Worksheets(1).Cells(Lig, 39)

' Code Fournisseur

Worksheets("Maj_TAXE_PF_PROD").Cells(Lg2, 2) = Worksheets(1).Cells(Lig, 61)

' Désignation Produit

Worksheets("Maj_TAXE_PF_PROD").Cells(Lg2, 3) = Worksheets(1).Cells(Lig, 40)

' Tpf National 1

Worksheets("Maj_TAXE_PF_PROD").Cells(Lg2, 4) = Worksheets(1).Cells(Lig, 46)

' Tpf National 2

Worksheets("Maj_TAXE_PF_PROD").Cells(Lg2, 5) = Worksheets(1).Cells(Lig, 47)

' Tpf National 3

Worksheets("Maj_TAXE_PF_PROD").Cells(Lg2, 6) = Worksheets(1).Cells(Lig, 48)

' Tpf National 4

Worksheets("Maj_TAXE_PF_PROD").Cells(Lg2, 7) = Worksheets(1).Cells(Lig, 49)

' Tpf National 5

Worksheets("Maj_TAXE_PF_PROD").Cells(Lg2, 8) = Worksheets(1).Cells(Lig, 50)

End If

Lig = Lig + 1

Loop

If Worksheets(6).Cells(1, 1) <> "" Then

SaveAsTextFile Fichier6, Worksheets(6), Worksheets(6).Range(Worksheets(6).Cells(1, 1), Worksheets(6).Cells(Lg2, 8))

End If

Salut et bienvenue sur le Forum,

Plus je vois passer les minutes sans réponse à ta question, plus je me dis que tu aurais dû y joindre ton fichier

A te relire.