VBA chercher un mot dans une plage de cellule

Bonjour,

Je recherche une macro me permettant de trouver le mot "TOTAL" sur une plage de cellules (A1:N1) et "Couper - Coller" les données trouvées à la colonne O.

Merci d'avance.

bonjour,

une proposition

Sub aargh()
    With Sheets("feuil1")
        Set re = .Range("A1:N1").Find("TOTAL", lookat:=xlWhole, LookIn:=xlValues)
        If Not re Is Nothing Then
            dl = .Cells(Rows.Count, re.Column).End(xlUp).Row
            .Range("O1").Resize(dl).Value = Cells(1, re.Column).Resize(dl).Value
        End If
    End With
End Sub

Merci beaucoup pour la réponse proposée. Je voudrai ensuite, qu'une fois la colonne D copiée, la macro me la supprime cette colonne D.

Merci d'avance de votre aide.

bonjour,

voici

Sub aargh()
    With Sheets("feuil1")
        Set re = .Range("A1:N1").Find("TOTAL", lookat:=xlWhole, LookIn:=xlValues)
        If Not re Is Nothing Then
            dl = .Cells(Rows.Count, re.Column).End(xlUp).Row
            .Range("O1").Resize(dl).Value = re.Resize(dl).Value
            re.resize(dl).clearcontents
        End If
    End With
End Sub

Merci beaucoup.