Aide sur une macro

Bonjour,

j'aurais besoin d'un petit coup de main sur un code

Sub Validation()
   Dim WS As Worksheet, Trouve As Range

   For Each WS In Worksheets
      Select Case WS.Name
      Case "Pac", "Sebastopol", "Guelmeur", "Strasbourg", "St Martin", "K1", "K2", "Fournil"
         Set Trouve = WS.Range("A1:ZZ1").Find(Worksheets("Accueil").Range("E19").Value)
         If Not Trouve = Nothing Then
            WS.Range(Trouve.Offset(1, 0), Trouve.Offset(199, 0)).Copy
            Trouve.Offset(1, 0).PasteSpecial (xlPasteValues)
         End If
      End Select
End Sub

Ce code est censé copier et coller les valeurs des colonnes des feuilles "Pac", "Sebastopol", "Guelmeur", "Strasbourg", "St Martin", "K1", "K2"et"Fournil" dont la première ligne est égale à E19 de la feuille "Accueil" mais il me renvoie "Utilisation incorrecte de l'objet"

Là je bloque ... (le débogueur surligne "Nothing"

Si quelqu'un voyait une solution ...

Merci d'avance

Bonjour,

         If Not Trouve Is Nothing Then
            Set Trouve = Trouve.Offset(1).Resize(199)
            Trouve.Value = Trouve.Value
         End If

Cordialement.

génial, merci ça marche

j'ai eu juste a rajouter un next en fin de commande

cordialement

En effet ça manquait ! Je n'avais pas été jusqu'au bout ! Bonne continuation !

un petit détail savez vous pourquoi ca ne marche pas pour les colonnes 1 à 9 ?

Aucune idée. Je ne vois pas de raison dans le code : la recherche couvre les colonnes de A à ZZ...