Set plage = Range(Cells(6, R2 - 48), Cells(213, R2 + 100))
ncol = plage.Columns.Count
tablo = plage 'matrice, plusrapide
For i = 1 To UBound(tablo)
For j = 1 To ncol
If UCase(tablo(i, j)) = "CIBLE" Then mes = mes & " - " & plage(i, j).Address(0, 0)
Next j, i
MsgBox "'CIBLE' " & IIf(mes = "", "non trouvé", "trouvé en " & Mid(mes, 4))