Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim w As Worksheet, maxi&
If LCase(Sh.Name) Like "client, numéro dossier (*)" Then
For Each w In Worksheets
If w.Name <> Sh.Name And UCase(w.[D2]) Like "BON DE COMMANDE*" Then _
If w.[G2] > maxi Then maxi = w.[G2]
Next
Sh.[G2] = maxi + 1
Sh.[F3] = Date
End If
End Sub