Microsoft 365 copie cellule non vide

[ROI1482]

Bonjour à tous
sur la Feuil2 colonne Q8 à Q50
si Q8 n'est pas vide copier sa valeur sur la Feuil3 en A2 effectuer la macro IMPRIME2 (déjà existante)
puis si Q9 n'est pas vide copier sa valeur sur la Feuil3 en A2 effectuer la macro IMPRIME2
puis si Q10 ................
puis si Q11.................
puis arrêt à la première cellule vide QXX
Le tout en VBA sur 365
Un petit coup de main serait le bienvenu !!!
Merci

 

[fanch55]

Bonjour,
Si j'ai bien compris :

Sub test()
Dim Cell As Range, Sadr As String
    With [Feuil2!Q8:Q50]
        Set Cell = .Find("*", [Feuil2!Q50], xlValues, xlWhole)
        Do While Not Cell Is Nothing
            If Sadr = "" Then Sadr = Cell.Address
            [Feuil3!A2] = Cell.Value
            Imprime2
            Set Cell = .FindNext(Cell)
            If Cell.Address = Sadr Then Set Cell = Nothing
        Loop
    End With
End Sub

 

[ROI1482]

Cà fonctionne parfaitement