Sub Essai()
Dim L As Long, NoCli As Long
For L = 1 To 35987
If Cells(L, 2).Value = "datasocietemere" Then
NoCli = Cells(L, 3).Value
ElseIf Cells(L, 2).Value = "dataglobale" Then
If NoCli = 0 Then NoCli = Cells(L, 1).Value
Cells(L, 3).Value = NoCli
NoCli = 0
End If
Next L
End Sub