Sub SuppDoublons()
Dim sh As Object
For Each sh In Sheets
If IsNumeric(sh.Name) Then
sh.Range("$B$6:$H$900").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
sh.Range("$J$22:$M$900").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
sh.Range("$N$22:$T$900").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
sh.Range("$V$22:$AB$900").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
sh.Range("$AD$22:$AI$900").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
sh.Range("$AK$22:$AO$900").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
sh.Range("$AQ$22:$AT$900").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
sh.Range("$AV$22:$AY$900").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
End If
Next
MsgBox ("doublons supprimés")
End Sub