Copier Coller sous Condition

Bonjour à tous,

Ma problématique est la suivante :

Inspecter la colonne B pour trouver la cellule contenant ou commençant par le mot "Blabla", pour copier ensuite la cellule en question plus les 30 qui suivent (de haut en bas) dans les cellules correspondantes de la colonne A.

Ceci pour tous les onglets d'un classeur ouvert.

Merci de vos réponses.

Bonjour,

Essaie le code suivant

Sub Test()
Dim Ws As Worksheet
Dim C As Range
    For Each Ws In ThisWorkbook.Worksheets
        Set C = Ws.Columns("B").Find("Blabla", , xlValues, xlPart)
        If Not C Is Nothing Then
            C.Resize(30, 1).Copy C.Offset(0, -1)
        End If
    Next Ws
End Sub

A+

Slt Frangy,

Ca marche au top.

Un grand merci à toi