Sub test()
Dim Plage, i&, j&, Nb&, temp
For i = 1 To Sheets.Count
Set Plage = Sheets(i).Range("A1").CurrentRegion.Resize(1)
For j = 1 To Plage.Cells.Count
If (Plage(2, j) = "RF" Or Plage(2, j) = "P1" Or Plage(2, j) = "") And _
(Plage(2, j + 1) = "RF" Or Plage(2, j + 1) = "P1" _
Or Plage(2, j + 1) = "") Then
Nb = Nb + 1
If temp < Nb Then temp = Nb
Else:
Nb = 0
End If
Next j
Next i
temp = temp + 1
End Sub