Importer des lignes d'une feuille à une autre sous condition

Bonjour,

Je voudrais copier des lignes d'une feuille à une autre sous condition que la 1ère cellule de chaque ligne contient la valeur X. J'ai essayé de développer le code suivant mais le problème est que :

* Il colle les lignes vers la fin de la feuille alors que moi je voudrais qu'il commence à partir de la ligne 6

* Il les colle plusieurs fois.

Est ce que quelqu'un pourrait m'aider?

Public Sub refresh()

'

' refresh Macro

'

' Touche de raccourci du clavier: Ctrl+y

'

Dim LastRow As Integer, i As Integer

Dim wksSrc As Worksheet, wksDest As Worksheet

Dim lngRow As Long

Set wksSrc = ThisWorkbook.Worksheets("Scénarios de menace")

Set wksDest = ThisWorkbook.Worksheets("Analyse de risque S")

Application.Calculation = xlAutomatic

Application.DisplayAlerts = False

wksDest.Range("A6:AP1000").Delete

Application.DisplayAlerts = True

wksDest.Range("A6:AP1000").ClearContents 'Works directly, without selection

lngRow = wksDest.Cells(wksDest.Rows.Count, 2).End(xlUp).Row + 1

For i = 2 To wksSrc.Range("A" & wksSrc.Rows.Count).End(xlUp).Row

If wksSrc.Cells(i, 1) = "X" Then

wksSrc.Range(wksSrc.Cells(i, 2), wksSrc.Cells(i, 20)).Copy

wksDest.Range("B" & wksDest.Rows.Count).PasteSpecial xlPasteValuesAndNumberFormats

Application.CutCopyMode = False

lngRow = lngRow + 1

End If

Next i

End Sub

Salut et bienvenue sur le Forum,

Voici ton code un peu transformé.

La prochaine fois pense à joindre un fichier.

Cordialement.