Dim x As Byte, c As Range
'---
Range("P" & x).Resize(, 3) = "" 'RAZ
Set c = Sheets(x).Range("A33:A36").Find("*", , xlValues, , , xlPrevious)
If Not c Is Nothing Then Range("P" & x) = c 'Indice
Set c = Sheets(x).Range("B33:B36").Find("*", , xlValues, , , xlPrevious)
If Not c Is Nothing Then Range("Q" & x) = c 'Commentaire MOE
Set c = Sheets(x).Range("H33:H36").Find("*", , xlValues, , , xlPrevious)
If Not c Is Nothing Then Range("R" & x) = c 'Suite à donner
'---