Bonjour
suis je dans la bonne section ?

Pour obtenir le résultat recherche j'ai simplifiée la macro mais elle ne fonctionne pas pour incompatibilité de type (dernière ligne) donc: avec la méthode find je recherche une valeur dans la colonne A si je la trouve (ici Annulé), je voudrais sélectionner la dernière cellule non vide de la ligne de la valeur recherchée et coller cette cellule en cellule range ("o1")voici la macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim PlageRecherche As Range
 With ActiveSheet
 Set PlageRecherche = .Range("A:A").Find(what:="Annulé", LookIn:=xlValues, lookat:=xlWhole)
 If Not PlageRecherche Is Nothing Then
 Range("annulé", Columns.Count).End(xlToLeft).Copy Destination:=Range("o1")
 End If
 End With
Merci pour votre aide