Selection multilpes lignes

[Pom]

Bonjour tous le monde,

Sur une feuille de plusieurs colonnes et de 70 lignes, je veux récupérer les
données de certaines lignes si des valeurs sont inscrites dans les colonnes AF et AG et les copier sur une autre feuille.
( Ces deux colonnes peuvent avoir des cases vides )

La procédure suivante fonctionne sur la 1ère ligne puis bloque à partir de la
2èmè.

Sub MultiSelec()

Sheets("Tableau general").Select

Dim Cell As Range
Dim plg1 As Range
Set plg1 = Range("AG6 : AG70")
Range("AG6").Select

For Each Cell In plg1

If Cell.Value <> "" And ActiveCell.Offset(0, -1).Value <> "" Then
Union(Range(Cell, ActiveCell.Offset(0, -1)), Range(ActiveCell.Offset(0, -15), ActiveCell.Offset(0, -32))).Select

ElseIf Cell.Value = "" And ActiveCell.Offset(0, -1).Value <> "" Then
Union(Range(Cell, ActiveCell.Offset(0, -1)), Range(ActiveCell.Offset(0, -15), ActiveCell.Offset(0, -32))).Select

Else
If Cell.Value <> "" And ActiveCell.Offset(0, -1).Value = "" Then
Union(Range(Cell, ActiveCell.Offset(0, -1)), Range(ActiveCell.Offset(0, -15), ActiveCell.Offset(0, -32))).Select

End If
End If
Selection.Copy
With Selection
Sheets("EFNS").Select
Range("A6").Select
ActiveSheet.Paste
End With

Next

End Sub

Quelqu'un aurait-il une solution ?
Merci d'avance

Pom

 

[Rai]

Bonsoir,

J'ai fait un test avec des lignes entières, et une condition de sélection portant sur la colonne A.
Tu devrais pouvoir l'adapter sans trop de peine à tes besoins.

Sub test()
For i = 1 To 30
If Cells(i, 1) <> 0 Then
If flag Then
Set MultiRange = Application.Union(MultiRange, Cells(i, 1).EntireRow)
Else
flag = True
Set MultiRange = Cells(i, 1).EntireRow
End If
End If
Next i
MultiRange.Select
End Sub

Bonne soirée

Rai

 

[Pom]

Bonjour Rai et tous le monde

Merci pour ton aide, mais j'ai encore des difficultés, je n'arrive pas à sélectionner les linges ( de la colonne A à R ) et les cellules non vides
de la colonne AF.
Je joint un fichier, c'est plus clair.
Si tu pouvez y jetter un oeil.

Merci

Pom,