Message d'erreur instruction IF

Bonjour Thautheme, merci je vais modifier

Bonjour jordane 45,
j'aurai du écrire le code comme suit:

If S3.Range(Cells(5, 17), Cells(900, 17)) >= S3.Cells(3, 17) And S3.Range(Cells(5, 17), Cells(900, 17)) >= S3.Cells(2, 17) Then
S3.Range(Cells(5, 37), Cells(900, 37)).Value = Application.WorksheetFunction.VLookup(S3.Cells(5, 36), S3.Range(Cells(5, 16), Cells(900, 17)), 2, False)

End If

j'ai la petite fenêtre du débug qui s'ouvre

@Laetitiayaocette petite fenêtre donne deux information précieuses:
- la ligne qui provoque l'erreur
- une description précise de l'erreur

Oui et la petite fenêtre... elle te dit "erreur d'incompatibilité de type ..'"
Bref...
Tu essayes de comparer un PLAGE de plusieurs cellules avec UNE seule cellule ?
Pas sûr que ça fonctionne......

Que cherches tu à faire exactement ??
Que souhaites tu (rédigé dans un français clair et précis...) réellement comparer ?

D'accord ce que je souhaite faire:
Si les valeurs présentes dans la plage "Q5:Q900" de ma feuille 3 sont supérieures et égales à la valeur presente en "Q3" et supérieures ou égales à la valeur presente en "Q2", alors ramener les valeurs de la plage "P5:Q900" deuxiéme colonne dans ma plage" AK5:AK900")

@Laetitiayaomoi je commencerais ainsi, pour faire le test:

Option Explicit

Dim cell As Range, ok As Boolean, max, S3
ok = True
If S3.Cells(3, 17) > S3.Cells(2, 17) Then
    max = S3.Cells(3, 17)
Else
    max = S3.Cells(2, 17)
End If
For Each cell In S3.Range(Cells(5, 17), Cells(900, 17))
    If cell < max Then
        ok = False
        Exit For
    End If
Next cell
If ok Then
    S3.Range(Cells(5, 37), Cells(900, 37)).Value = _
        Application.WorksheetFunction.VLookup(S3.Cells(5, 36), S3.Range(Cells(5, 16), Cells(900, 17)), 2, False)
End If