Macro incomplète

Bonjour,

J'ai le début d'un macro mais je bloque sur la suite pourtant ça doit être vraiment simple mais ... je ne serais pas contre un petit coup de main.

Sub ValidationFrais2()

       Dim WS As Worksheet, Trouve As Range

For Each WS In Worksheets
          Select Case WS.Name
          Case "Stock Frais"
             Set Trouve = WS.Range("B1:ZZ1").Find(Worksheets("Frais").Range("A6").Value)
                          If Not Trouve Is Nothing Then
            Set Trouve = ??????????????????????????????????
End If
         End Select
         Next
End Sub

Ce code me permet de trouver une colonne (dans Stock Frais) dont la première ligne est égale à la cellule A6 de la feuille "Frais" ... cette partie marche;

Une fois que j'ai trouvé la colonne (au niveau des points d'interrogation) je voudrais y mettre les valeurs F58 à F72 (de la feuille "Frais") de la ligne 38 à la ligne 52.

Merci de votre aide

Cordialement

Bonjour,

Testes ceci :

Sub ValidationFrais2()

    Dim WSStock As Worksheet
    Dim WSFrais As Worksheet
    Dim Cel As Range

    Set WSStock = Worksheets("Stock Frais")
    Set WSFrais = Worksheets("Frais")

    Set Cel = WSStock.Range("B1:Z1").Find(WSFrais.Range("A6").Value, , xlValues, xlWhole)

    If Not Cel Is Nothing Then

        With WSStock: .Range(.Cells(38, Cel.Column), .Cells(52, Cel.Column)).Value = WSFrais.Range("F58:F72").Value: End With

    End If

End Sub

Ça marche super merci beaucoup et en plus très simple à modifier pour d'autres situations ... merci encore