Private Sub Worksheet_Activate()
Dim t, source, nlig&, i&, client$, j&
t = [A1].CurrentRegion
source = Feuil2.[C4].CurrentRegion
nlig = UBound(source)
For i = 2 To UBound(t)
client = CStr(t(i, 3))
For j = 2 To nlig
If client = CStr(source(j, 1)) Then
t(i, 4) = source(j, 2)
t(i, 5) = source(j, 3)
t(i, 8) = source(j, 4)
t(i, 10) = source(j, 5)
t(i, 12) = source(j, 6)
t(i, 14) = source(j, 7)
Exit For
End If
Next j, i
[A1].CurrentRegion = t
End Sub